perm filename CYCDR3.LAP[1,LMM] blob sn#033099 filedate 1973-04-04 generic text, type T, neo UTF8
(LAP SETND SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(HLRZ@ 1 2) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NODEARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(HRRZ@ 1 0 P) 
	(MOVEI 2 (QUOTE 20)) 
	(PUSH P 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E NODEARRAY)) 
	(POP P 1) 
	(PUSHJ P NSTR) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL